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DECUS Program Library Write-up 


DECUS No. 8-312 


ABSTRACT 

This pair of patches to the Disk/DECtape Monitor Builder, and PIP, together with the FOCAL 
program for tape generation, will allow the TC-58/TU20 IBM-Compatible-Magtape unit to 
emulate a non-systems device DECtape for operation with the monitor. 

The coding also serves as a coding example for both interrupt and non-interrupt magtape handlers. 

The "Block" format is exactly that used by David Custer in "A Disk Simulator Using a Single Industry 
Standard Magnetic Tape Unit" published in DECUS Fall 1969 Symposium. 

LOADING 

^ The patch (non-interrupt) that overlays the builder, modifies the command decoder (.CD ) to use 
the magtape in the Custer format, as if it were a DECtape. This coding is only used during 
command decoder dialogue time. 3 

1 . Load builder into core (using LOAD,or binary loader) 

2. Load .CD. patch (using LOAD,or binary loader) 

3. Run builder, answering "yes ^ " to tape question. 

The (interrupt) patch for PIP modifies it to do the actual block transfers in DECtape PIP operations. 

1. Load PIP into core (using LOAD,or binary loader) 

2. Load PIP patch (using LOAD, or binary loader) 

03. Save PIP! 0-5177; 1000 ^ 

CREATING AN EMULATED FORMAT TAPE 
The format for a "BLOK" is: 

1 . EOF record 

2. 1 word blok # record 

3. 128 word "DATA" record 







4. 1 word LINK record 


5. 3" blank tape. 


The first blok created is ^176. Since bloks 177 through 203 (for 200' tape) are used as DN and 
SAM block directories, the first 176 bloks are not created, so the directories will actually 
exist on the physical beginning of the tape. The SAM tape protects the non-existent bloks. 
The DN and SAM table layouts are exactly as described in the system documentation, and for 
a 200' tape, are similar to a very short DECtape, with two SAM bloks. The first SAM blok 
allows use of bloks 204 through 377, and the second 400 through 577 . Bloks 0 through 203 and 
600 through 111 are protected by entry of an IFN of 0 ] in the SAM directory. 


The FOCAL programas described will create the correct bloks for a 200' tape. The coding in 
Appendix A will change this program to create a 2400' tape. Since the tape is rather slow in 
reaching bloks far down the tape it is suggested that 200' reels be used. They are available 
from the "MAC PANEL" line of tapes. 


Write-ring protection of a tape and its directory is valid, and PIP will list the directory even 
if the write-ring is out'. 


USAGE 


Standard system documentation describes operation of the system with DECtape, and this modi¬ 
fication does not effect the description. It should be noted that the tape never backspaces, but 
rewinds when reverse motion is desired. 
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O 5 • 3 9 9 9 3 39 § 9 9 3 9 9 9 9 3 9 9 9 9 '3 9 9 9 9 a @ 9 9 9 '99 §9 99 99999 99 $9 9 r# 9 9 9999999999 a ;s 9 
C 12:30 AM 15 DEC 69 - EMULATED DEC TAPE GENERATOR - 256 FREE BLOCKS 
C TAPE MARKED AS VERSION "Al" 

C-DISK FOCAL-GA. TECH-5/69 

Ml.Ol C WRITE DUMMT BLOCK * 176 

01.05 S Z=FADC (3534*264) +FADC (3538)5’D 14.9 

01.10 S Q=4096!D 12.1 

01.20 S Z=FDXS(Q» 126)ID 14 

02.01 C WRITE DM 1 

02.2 0 S Z=FDXS(Q+2# 2129)+FDXSCQ+3 # 128)+FDXS(Q+8# 3137) 

02.30 S Z=FDXS(Q+129#129)5D 14 

03.01 C WRITE SAMI 

33.10 F I = Q+ 1 #0+4> S Z=FDXS(I#65 ) 

03.20 F I = I, (-3+1 28; S Z=FDXSCI# 1 > 

03.30 S Z=FDXS(I,131>JD 14 

04.01 C WRITE DM2 & DM3 

04.10 D 12.11S Z=FDXS(Q+129#130 ) ;D 14 

04.20 D 12.i;D 14 

05.01 C WRITE SAM2 

05.10 F I=Q +1>Q+1281S Z=FDXS(I#64) 

05.20 D 14 

06.01 C WRITE REST OF TAPE! 

06.10 s k=o;d 12 ;d i. 05;0 

12.31 C CLEARS 4 WRITES NEXT 256 BLOCKS 

12.10 F Z= 1 # 130;S CO = F DXS(Z + 3 # O) 

12.20 F K=1>256;D 14 

14.01 C WRITES EOF#BLOCK* DATA* & LINK RECORDS# AMD INCREMENTS BLOCK 

14.10 S C0=360;S Z=FDXSC4074#4095) 

14.20 S Z = FADC(3534# CO) + FADC < 3538# 8)# D 14.9 

14.30 S Z=FDXS(4074#40953+FDXSC4075#Q-1);S C0=288;D 14.P 

14.40 S Z=FDXS(4074,-128);D 14.2 

14.50 S Z = FDXS(4074#4095);D 14.2 

14.60 S Z=FDXS(Q#FDXS(Q)+1);R 
14.90 I (-FADCC3537))14.9#14.9;R 

15.40 s rs=o;s m=3;f i=i,4;d 15.6 

15.50 R 

15.60 S DI = FITRCRE/B1tM >; S RE=RE-DI*B1tMJS RS=RS+DI*B2tMJS m = m-i 
15.70 S B1=10;S B2=8 

15.80 S B1=S;S B2=1O 

* @ 0 0 0 @ @ § @ @ @ @ id a § ® @ (3 § (3 (S (3 @ 0 $ 0 @ @ $ ,3 0 
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APPENDIX A 


5.01c Write next 11 SAM blocks 

5.1 F K=],11;s Z=FDXS(Q+129,FDXS(Q)+l);d 14 

5.2 F K=Q+l,Q+128;s Z=FDXS(I,64) 

5.3 S Z=FDXS(Q+129,0);D 14 

12.2F K=1,256*12;d 14 
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